home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Screenblankers / Blanker / Install < prev    next >
Text File  |  1996-09-26  |  4KB  |  154 lines
  1. ;
  2. ; Blanker Installation Script $VER:Blanker 37.3 (24.6.93)
  3. ;
  4.  
  5. (set @default-dest "SYS:WBStartup")
  6. (set @module-dest "SYS:WBStartup")
  7. (set @pref-dest "SYS:Prefs")
  8. (set @envarc-dest "ENVARC:")
  9. (set @env-dest "ENV:")
  10. (set installBlanker 1)
  11. (set installReqTools 1)
  12.  
  13. (if (> @user-level 1)
  14.     (set @default-dest
  15.         (askdir
  16.             (prompt "Where would you like Blanker installed?")
  17.             (help "The WBStartup directory on your boot disk is likely the best place to put blanker. "
  18.                   "This will insure that Blanker is run automatically when you boot your computer."
  19.             )
  20.             (default @default-dest)
  21.         )
  22.     )
  23. )
  24.  
  25. (working "Checking for previously installed version of Blanker.")
  26.  
  27. (if (<= (getversion (tackon (pathonly @icon) "Blanker")) (getversion (tackon @default-dest "Blanker")))
  28.     (if     (askbool
  29.             (prompt "An equal or newer version of Blanker already installed. "
  30.                 "Install anyway?"
  31.             )
  32.             (default 0)
  33.             (help "An equal or newer version of Blanker is already installed. "
  34.                   "If you would like to install Blanker anyhow, click 'Yes'. "
  35.                   "If you don't want to install Blanker, click 'No'."
  36.             )
  37.         )
  38.         (set installBlanker 1)
  39.         (set installBlanker 0)
  40.     )
  41. )
  42.  
  43. (if (= 1 installBlanker )
  44.     (copyfiles
  45.         (prompt ("Copying Blanker to %s" @default-dest))
  46.         (help @copyfiles-help)
  47.         (source (pathonly @icon))
  48.         (dest @default-dest)
  49.         (choices "Blanker")
  50.         (infos)
  51.     )
  52.     (if (< @user-level 1)
  53.         (set temp @user-level)
  54.         (user 2)
  55.         (message "Not installing Blanker because an equal or newer version is already installed.")
  56.         (user temp)
  57.     )
  58. )
  59.  
  60. (if (and (> @user-level 1) (= 1 installBlanker))
  61.     ((set @module-dest
  62.         (askdir
  63.             (prompt "Where would you like the Blanker modules installed?")
  64.             (help "You can put the blankers anywhere and Blanker will look for them there." )
  65.             (default @module-dest)
  66.         )
  67.     )
  68.     (copyfiles
  69.         (prompt ("Copying Blanker modules to %s" @module-dest))
  70.         (help @copyfiles-help)
  71.         (source (pathonly @icon))
  72.         (dest @module-dest)
  73.         (choices "Blankers")
  74.     )
  75.     (tooltype
  76.         (prompt ("Informing Blanker that the blanker modules are in %s." (tackon @module-dest "Blankers")))
  77.         (help "Setting Blanker's BLANKERDIR tooltype to the directory in which the modules were installed.")
  78.         (dest (tackon @default-dest "Blanker"))
  79.         (settooltype "BLANKERDIR" (tackon @module-dest "Blankers"))
  80.     ))
  81. )
  82.  
  83. (working "Copying Blanker presets into Prefs/Presets/Blanker/ drawer.")
  84.  
  85. (if (= 1 installBlanker)
  86.     (copyfiles
  87.         (prompt ("Copying Blanker presets to %s" @pref-dest ))
  88.         (help @copyfiles-help)
  89.         (source (pathonly @icon))
  90.         (dest @pref-dest)
  91.         (confirm)
  92.         (choices "Presets")
  93.     )
  94. )
  95.  
  96. (if (= 1 installBlanker)
  97.     ((copyfiles
  98.         (prompt ("Copying Blanker presets default icon to %s" @envarc-dest ))
  99.         (help @copyfiles-help)
  100.         (source (tackon (pathonly @icon) "env-archive"))
  101.         (dest @envarc-dest)
  102.         (confirm)
  103.         (choices "sys" "Blanker.prefs")
  104.     )
  105.     (copyfiles
  106.         (prompt ("Copying Blanker presets default icon to %s" @env-dest ))
  107.         (help @copyfiles-help)
  108.         (source (tackon (pathonly @icon) "env-archive"))
  109.         (dest @env-dest)
  110.         (choices "sys" "Blanker.prefs")
  111.     ))
  112. )
  113.  
  114. (working "Checking for previously installed version of ReqTools.")
  115.  
  116. (if (<= (getversion (tackon (pathonly @icon) "ReqTools/reqtools.library")) (getversion "LIBS:reqtools.library"))
  117.     (if     (askbool
  118.             (prompt "An equal or newer version of ReqTools already installed. "
  119.                 "Install anyway?"
  120.             )
  121.             (default 0)
  122.             (help "An equal or newer version of ReqTools is already installed. "
  123.                   "If you would like to install ReqTools anyhow, click 'Yes'. "
  124.                   "If you don't want to install ReqTools, click 'No'."
  125.             )
  126.         )
  127.         (set installReqTools 1)
  128.         (set installReqTools 0)
  129.     )
  130. )
  131.  
  132. (if (= 1 installReqTools)
  133.     (copyfiles
  134.         (prompt "Copying ReqTools library to LIBS:")
  135.         (source (tackon (pathonly @icon) "ReqTools/reqtools.library"))
  136.         (dest "LIBS:")
  137.     )
  138.     (if (< @user-level 1)
  139.         (set temp @user-level)
  140.         (user 2)
  141.         (message "Not installing reqtools.library because an equal or newer version is already installed.")
  142.         (user temp)
  143.     )
  144. )
  145.  
  146. (if (= 1 installReqTools)
  147.     (copyfiles
  148.         (prompt "Copying ReqTools preferences editor to SYS:Prefs")
  149.         (source (tackon (tackon (pathonly @icon) "ReqTools") "ReqTools"))
  150.         (dest "SYS:Prefs")
  151.         (infos)
  152.     )
  153. )
  154.